perm filename QLISP.USE[QLA,LSP] blob sn#840723 filedate 1987-06-01 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	cd /user/arg/qlisp
C00003 ENDMK
CāŠ—;
cd /user/arg/qlisp
qlisp
(load "/user/arg/qlisp/qlet-load")
(ql-start)
...your work here...
(ql-finish)

THE CONS LOCK!!!

(get-lock *cons-lock*)
(release-lock *cons-lock*)

(defmacro lock-cons (x y)
 `(prog2 (get-lock *cons-lock*)
	 (cons ,x ,y)
	 (release-lock *cons-lock*)))

(compile 'lock-cons)